home *** CD-ROM | disk | FTP | other *** search
Wrap
/* ** $VER: Halftone.ieb 1.11, IE Arexx script ** Image Engineer Batch Processing script ** Copyright © by Patrik M Nydensten ** 1/2 1997 Stockholm/Sweden ** ** Halftone PRIMARY image with ALPHA channel. */ options results signal on error parse arg input command input = upper(strip(input)) address 'IMAGEENGINEER' select /* Required batch script commands */ when input = 'INFO' then return get_info() when input = 'CONFIG' then return get_config(command) when input = 'PROCESS' then return process_image(command) otherwise do 'REQUEST' '"Failure in call to batch script!"' '" Quit "' return '<ERROR>' end end exit 0 /* Required "Get_info" procedure ------------------------------------ */ /* S = SECONDARY, A = ALPHA; 1 = Single file, 2 = Multiple files */ get_info: back = 'OK A2' return back /* Required "Get_config" procedure ---------------------------------- */ get_config: parse arg '"'command'"' if command = '' then gtext = 'OK' else gtext = 'Yeah, you just told me!' 'REQUEST' '"The Halftone batch script does'd2c(10)'not have any settings."' '"' gtext '"' back = 'OK' return back /* Required "Process_image" procedure ------------------------------- */ process_image: parse arg '"'src_image'"' '"'dst_image'"' '"'options'"' '"'alp_image'"' parse var options nil 'OPEN' '"'src_image'"' '24' if (RC ~= 0) then do 'IE_TO_FRONT' 'REQUEST' '"Failed to load image:' d2c(10)||src_image'"' '" OK "' return '<ERROR>' end else LoadImage = result 'OPEN' '"'alp_image'"' '8' if (RC ~= 0) then do 'IE_TO_FRONT' 'REQUEST' '"Failed to load alpha image:' d2c(10)||alp_image'"' '" OK "' return '<ERROR>' end else AlphaImage = result 'MARK' LoadImage 'PRIMARY' 'MARK' AlphaImage 'ALPHA' 'HALFTONE' OutputImage = result 'CLOSE' LoadImage 'CLOSE' AlphaImage if left(getclip('cfg_save_frmt'),4)~='ILBM' then do 'CONVERT_TO_COLOUR' OutputImage NewImage = result 'CLOSE' OutputImage OutputImage = NewImage end if getclip('cfg_save_frmt')='' then setclip('cfg_save_frmt','ILBM CmpByteRun1') 'SAVE_DATA' OutputImage '"'dst_image'"' '"'getclip('cfg_save_frmt')'"' if (RC ~= 0) then do 'IE_TO_FRONT' 'REQUEST' '"Failed to save image:' d2c(10)||dst_image'"' '" OK "' return '<ERROR>' end 'CLOSE' OutputImage back = 'OK' return back /* Internal procedures ---------------------------------------------- */ /*******************************************************************/ /* This is where control goes when an error code is returned by IE */ /* It puts up a message saying what happened and on which line */ /*******************************************************************/ error: if RC=5 then do IE_TO_FRONT LAST_ERROR 'REQUEST "'||RESULT||'"' end else do IE_TO_FRONT LAST_ERROR 'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!' end return '<ERROR>'